(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     58263,       1385]
NotebookOptionsPosition[     46950,       1139]
NotebookOutlinePosition[     47622,       1165]
CellTagsIndexPosition[     47542,       1160]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.7", "HistoryData",
  CellTags->"New",ExpressionUUID->"4c03c85b-c615-4e4d-9578-406d51715461"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"1100e30d-a995-4685-a0cf-591cd1214e1f"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"f3940536-8813-4415-918d-3af672645f64"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"6be72038-5e51-4013-97ac-3a8b90cda81c"]
}], "History",
 CellID->1247902091,ExpressionUUID->"1f2ecf7b-2694-4435-9308-79264c2658ea"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"d632d265-924c-4f31-9937-a5eaf168cb33"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"811336fd-42ee-4048-8fa1-d8e62ba33908"],

Cell["MaXrd", "Categorization",
 CellChangeTimes->{3.7438365358711042`*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"b2d8fb73-3a98-493f-94c0-ba9f64f9d49b"],

Cell["MaXrd`", "Categorization",
 CellChangeTimes->{3.743836536276832*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"a5804b2b-97dd-49eb-9ee0-c9474494ef8d"],

Cell["MaXrd/ref/ToStandardSetting", "Categorization",
 CellChangeTimes->{3.7438365365804873`*^9},
 CellLabel->"URI",ExpressionUUID->"ae0368e4-8d83-4548-afe5-908e83c5d9c6"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"4e37af22-5d74-48ff-bbb5-cc8666b7d89a"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"7ed56084-fa92-4a2c-9266-9c0c54fff7b2"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"88dffd42-e3f1-4cbe-9a14-72c9f71e4dcf"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"24959277-1d66-47a6-8d83-eb205e03b652"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"d337737c-9dec-45f6-bdac-b41f31b04d0e"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"6a49ba06-4596-41e4-bf87-bc82e06a3523"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"0dd06f05-0b1b-4062-bd4b-ca34358cbd92"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"eaf7f428-e882-47ba-a250-4385e56cb692"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"ec3379d7-0afc-4afa-b0fc-aa3c59d7781f"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"8fc5a89a-d420-4fe0-a142-1a71b0cd3fed"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"e3b22d88-3668-44e5-8efb-d977b04498bb"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"39c1f60e-5fa3-4a75-a8ba-ff27b85143e8"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"4e7d1ab9-7e91-416c-bb6a-b5505daf801a"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"c9c04c82-6c9b-404c-9b63-2359a7ed0a60"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"eee3d5f8-5043-4c48-b764-95f5eb25a617"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"f7b3f326-59bc-4175-b067-ee5a1e8d1ef6"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"aafca9ff-1be0-4a01-8067-6d5913433bd5"]
}, Closed]],

Cell[CellGroupData[{

Cell["ToStandardSetting", "ObjectName",
 CellID->1224892054,ExpressionUUID->"93b507c7-3bad-41c0-ac41-1519170f90d5"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"731b19f5-867d-4dac-8c54-43759ea5deeb"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["ToStandardSetting",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/ToStandardSetting"], "[", 
   RowBox[{
    StyleBox["group", "TI"], ",", 
    RowBox[{"{", 
     RowBox[{
      StyleBox["h", "TI"], ",", 
      StyleBox["k", "TI"], ",", 
      StyleBox["l", "TI"]}], "}"}]}], "]"}]], "InlineFormula",ExpressionUUID->
  "48298680-1970-4aa0-8142-229e0cdaa756"],
 " \[LineSeparator]returns the \[LeftGuillemet]standard setting\
\[RightGuillemet] of reflection ",
 Cell[BoxData[
  StyleBox["hkl", "TI"]], "InlineFormula",ExpressionUUID->
  "704c1133-a9dd-4c32-a225-a9425737843a"],
 " under the symmetry operations of the given point- or space ",
 Cell[BoxData[
  StyleBox["group", "TI"]], "InlineFormula",ExpressionUUID->
  "04279669-129e-44cc-9deb-619e13d13247"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "e448b0c2-8348-4fb3-a640-f97d27d70896"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["ToStandardSetting",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/ToStandardSetting"], "[", 
   StyleBox["group", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "97af96c2-e1ee-4b26-acc9-a32426fc158e"],
 "\[LineSeparator]checks the space ",
 Cell[BoxData[
  StyleBox["group", "TI"]], "InlineFormula",ExpressionUUID->
  "82ef5308-912b-4034-83aa-b6c3aa68e88a"],
 " and returns a non-ambiguous formatted version.\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "869ae1e5-474f-45f5-a9d9-91f0cc734b7f"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["ToStandardSetting",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/ToStandardSetting"], "[", 
   RowBox[{
    StyleBox["group", "TI"], ",", 
    StyleBox["ext", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "da66ad8a-3514-4325-96bd-5140cd99ca01"],
 "\[LineSeparator]checks the space ",
 Cell[BoxData[
  StyleBox["group", "TI"]], "InlineFormula",ExpressionUUID->
  "73ac58db-81b2-494b-9239-0d3fdec07b83"],
 " and retuns a non-ambiguous formatted version with extension ",
 Cell[BoxData[
  RowBox[{
   StyleBox["group", "TI"], ":", 
   StyleBox["ext", "TI"]}]], "InlineFormula",ExpressionUUID->
  "fb662810-9345-4010-a253-e8cb0fd60efe"],
 "."
}], "Usage",
 CellChangeTimes->{{3.684217426407771*^9, 3.684217446803939*^9}, {
  3.684493338437902*^9, 3.684493447014658*^9}, {3.71248157811421*^9, 
  3.712481636042163*^9}, {3.712481671132462*^9, 3.7124818668400297`*^9}, {
  3.7142914894598703`*^9, 3.714291489583376*^9}, {3.717491728022232*^9, 
  3.7174918436098747`*^9}},
 CellID->982511436,ExpressionUUID->"6153f6c6-4099-40c4-923a-c91595c357c3"],

Cell[TextData[{
 "\[LeftGuillemet]Standard setting\[RightGuillemet] is when ",
 Cell[BoxData[
  FormBox["l", TraditionalForm]], "InlineMath",ExpressionUUID->
  "12451c90-a989-41d3-8fc0-20a5b3c45f3d"],
 " is maximised first, followed by ",
 Cell[BoxData[
  FormBox["k", TraditionalForm]], "InlineMath",ExpressionUUID->
  "51acc155-ba81-43b2-b9a8-7ff9ea256d39"],
 " and then by ",
 Cell[BoxData[
  FormBox["h", TraditionalForm]], "InlineMath",ExpressionUUID->
  "49b2a01c-1cba-485c-8f9c-ef5421278a30"],
 ", according to the ",
 ButtonBox["SHELX-97 manual",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://shelx.uni-ac.gwdg.de/SHELX/shelx97.pdf"], None}],
 " (p. 54 (\[OpenCurlyDoubleQuote]7\[LongDash]8\[CloseCurlyDoubleQuote])). \
Additionally, reflections with all indices positive are prioritised."
}], "Notes",
 CellChangeTimes->{{3.6844934995465508`*^9, 3.684493593437717*^9}, {
  3.684493637013318*^9, 3.684493637167914*^9}, {3.684493685024296*^9, 
  3.6844937166392384`*^9}, {3.736064390115089*^9, 3.736064402525765*^9}, {
  3.736064436752407*^9, 3.736064436987417*^9}},
 CellID->1067943069,ExpressionUUID->"326e418f-3a10-46ff-bf8f-b35d72930133"],

Cell[TextData[{
 "If ",
 Cell[BoxData[
  StyleBox["group", "TI"]], "InlineFormula",ExpressionUUID->
  "fde6e709-ae50-4d01-8360-ff09aec235fa"],
 " represents the main entry of a space group, or is unique, it will be \
returned as the formatted symbol used in ",
 StyleBox["International Tables for Crystallography",
  FontSlant->"Italic"],
 ". If not, the full Hermann\[Dash]Mauguin symbol will be used."
}], "Notes",
 CellChangeTimes->{{3.714371446620596*^9, 3.714371545874371*^9}, {
   3.71437162128939*^9, 3.714371643326522*^9}, 3.714371733033616*^9, {
   3.717491850979705*^9, 3.717491851360827*^9}},
 CellID->188211582,ExpressionUUID->"4066b546-9ac3-4c2b-bb2e-de5277711f33"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"82ab4554-fcd6-4ec4-8473-603d390c2aae"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"5f2a10eb-48b0-4dac-9e9b-495c9db1b1ff"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"31a34709-3a3b-49df-a21b-be5d59fb64ad"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"39db80e1-a4fa-4bd5-9e17-0151b9f89325"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"439d739a-2d35-4b75-b2b0-3dd676ed8fd5"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"8d0d245d-28a6-4454-b1dd-eef625be48e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"d5d05cbb-7630-4d1f-8f83-219da63e7025"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["ImportCrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ImportCrystalData"]], "InlineFormula",
  ExpressionUUID->"bb0aaa94-bb86-4f2b-956d-e90a641e6b00"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["UnitCellTransformation",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/UnitCellTransformation"]], "InlineFormula",
  ExpressionUUID->"ba38ef5c-092a-4b2d-8fcc-9d216668dc0b"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetSymmetryData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetSymmetryData"]], "InlineFormula",
  ExpressionUUID->"7a445c29-5b80-426c-a2b5-3c62767d4d3a"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["MergeSymmetryEquivalentReflections",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/MergeSymmetryEquivalentReflections"]], 
  "InlineFormula",ExpressionUUID->"ff140abb-8af4-4e62-9fcb-fce4d7e068ab"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ReflectionList",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ReflectionList"]], "InlineFormula",
  ExpressionUUID->"781f4bae-62cf-45cb-ae42-dd3ffc7cadb0"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["MillerNotationToString",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/MillerNotationToString"]], "InlineFormula",
  ExpressionUUID->"1427a015-3350-42e2-b27b-9f7ce96e2fa5"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["MillerNotationToList",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/MillerNotationToList"]], "InlineFormula",
  ExpressionUUID->"46dcd079-2cb1-489e-8e1a-310b453ad409"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["SystematicAbsentQ",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/SystematicAbsentQ"]], "InlineFormula",
  ExpressionUUID->"beda5992-53b8-48cc-a043-ce9221c3b9cf"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["SymmetryEquivalentReflectionsQ",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/SymmetryEquivalentReflectionsQ"]], 
  "InlineFormula",ExpressionUUID->"2822f316-df43-4a04-9c9f-6ae9a37c914c"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["StructureFactorTable",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/StructureFactorTable"]], "InlineFormula",
  ExpressionUUID->"a4152949-0c84-446d-bdea-c8c7c8fe199b"]
}], "SeeAlso",
 CellChangeTimes->{{3.6844937898575563`*^9, 3.684493852408084*^9}, {
   3.730106724976286*^9, 3.7301067249765368`*^9}, 3.730210564417857*^9, {
   3.7304022322003193`*^9, 3.7304022783739767`*^9}, {3.737873140739244*^9, 
   3.737873165409732*^9}, {3.737968274036456*^9, 3.737968274036656*^9}, {
   3.737968427358103*^9, 3.737968427358264*^9}, {3.737968558231927*^9, 
   3.7379685582320766`*^9}},
 CellID->929782353,ExpressionUUID->"634dbd2f-fb6e-421a-8c48-50c8fa310262"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"32bc4e39-d72d-4786-bf18-d7e0091538cd"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"575463f8-17b4-4587-b911-33fe2a0f0127"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"19a048dc-da24-486b-8c97-430e12b8056a"],

Cell["Reflections:", "ExampleText",
 CellChangeTimes->{{3.712475296580696*^9, 3.712475298276785*^9}},
 CellID->878882352,ExpressionUUID->"5efba7c5-5404-46a3-81f6-6344c419fb84"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToStandardSetting", "[", 
  RowBox[{"\"\<4/m\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.682760785214396*^9, 3.6827607925725327`*^9}, {
  3.6842135679815617`*^9, 3.684213568624764*^9}},
 CellLabel->"In[1]:=",
 CellID->338673504,ExpressionUUID->"800badba-7c1f-478d-8b68-fc1fe11bebc0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "1", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{
  3.682760792829801*^9, 3.6827676682413177`*^9, 3.683604326484983*^9, {
   3.684139632051366*^9, 3.684139634053978*^9}, 3.684213568889711*^9, 
   3.684493740711639*^9, 3.712475380656558*^9, 3.71662306192281*^9, 
   3.7166234152089376`*^9, 3.730402324979558*^9},
 CellLabel->"Out[1]=",
 CellID->1854444927,ExpressionUUID->"4ec7c1a5-cc46-437d-a034-1b7520aeb787"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToStandardSetting", "[", 
  RowBox[{"\"\<\!\(\*OverscriptBox[\(1\), \(_\)]\)\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", 
     RowBox[{"-", "2"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.682760805479121*^9, 3.6827608144766693`*^9}},
 CellLabel->"In[2]:=",
 CellID->1328982635,ExpressionUUID->"bad79386-471b-45f1-8133-12b9752028cd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "0", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{{3.682760809396205*^9, 3.6827608148128*^9}, 
   3.68276767043438*^9, 3.683604328035036*^9, 3.6841396341969023`*^9, 
   3.684213570115613*^9, 3.684493740872119*^9, 3.7124753811675167`*^9, 
   3.716623062065568*^9, 3.7166234153750477`*^9, 3.730402325107394*^9},
 CellLabel->"Out[2]=",
 CellID->1225719178,ExpressionUUID->"0bb5ad6b-3125-4dc2-8881-8241a6ddce71"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToStandardSetting", "[", 
  RowBox[{"\"\<6/mmm\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "7"}], ",", "5", ",", 
     RowBox[{"-", "3"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.682760824526416*^9, 3.6827608329892883`*^9}},
 CellLabel->"In[3]:=",
 CellID->619714023,ExpressionUUID->"20d14f09-c20e-4a95-977b-e0f0eba5614b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "5", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{{3.68276082659234*^9, 3.6827608335149403`*^9}, 
   3.682767697985148*^9, 3.6836043289632063`*^9, 3.684139634274444*^9, 
   3.684213571409412*^9, 3.684493741001451*^9, 3.712475382467931*^9, 
   3.716623062188813*^9, 3.716623415512693*^9, 3.730402325260064*^9},
 CellLabel->"Out[3]=",
 CellID->1999082622,ExpressionUUID->"413aecfb-e52c-4136-8171-5511f1986fb2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToStandardSetting", "[", 
  RowBox[{"\"\<m\!\(\*OverscriptBox[\(3\), \(_\)]\)m\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "7"}], ",", "5", ",", 
     RowBox[{"-", "3"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.682760841547991*^9, 3.6827608432369413`*^9}},
 CellLabel->"In[4]:=",
 CellID->1861274010,ExpressionUUID->"0c486138-c5d1-4962-adb4-7773e2cf4c7c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3", ",", "5", ",", "7"}], "}"}]], "Output",
 CellChangeTimes->{3.682760844456558*^9, 3.6827676999694138`*^9, 
  3.683604329589266*^9, 3.6841396343717537`*^9, 3.684213572681126*^9, 
  3.6844937411332006`*^9, 3.712475383517399*^9, 3.716623062351075*^9, 
  3.7166234156853657`*^9, 3.7304023253980618`*^9},
 CellLabel->"Out[4]=",
 CellID->1199970639,ExpressionUUID->"26961ed5-142e-4c12-8e3b-cb7f0c31a6fe"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToStandardSetting", "[", 
  RowBox[{"\"\<m\!\(\*OverscriptBox[\(3\), \(_\)]\)m\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3"}], ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.682767813515951*^9, 3.682767814250121*^9}},
 CellLabel->"In[5]:=",
 CellID->867071188,ExpressionUUID->"d6a43071-0682-482f-b804-8a205693a149"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "2", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{3.684493741257216*^9, 3.712475386178344*^9, 
  3.716623062634222*^9, 3.716623415804523*^9, 3.730402325547978*^9},
 CellLabel->"Out[5]=",
 CellID->887600696,ExpressionUUID->"cbda9ace-3ec0-47ac-8ed0-fa6be9bb8a57"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "21ecc97d-886e-4294-aa47-f07fd60fd3bc"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1764651465,ExpressionUUID->"3d08f351-1b35-4e3a-9770-cb8ba0e6300a"],

Cell["Space groups:", "ExampleText",
 CellChangeTimes->{{3.71247530462437*^9, 3.712475306138588*^9}},
 CellID->1748007185,ExpressionUUID->"bc2c26c3-8655-44f9-91c1-78b94a7feb24"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToStandardSetting", "[", "\"\<P 6/m m m\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.7124751740538397`*^9, 3.712475186888103*^9}},
 CellLabel->"In[1]:=",
 CellID->385855261,ExpressionUUID->"60b16fe7-5d02-4c1e-b590-35f990d15214"],

Cell[BoxData["\<\"P6/mmm\"\>"], "Output",
 CellChangeTimes->{{3.712475182689678*^9, 3.7124751872523823`*^9}, 
   3.712475313775648*^9, {3.7124753733818502`*^9, 3.712475389462888*^9}, 
   3.7124818831307373`*^9, 3.7124819653050327`*^9, 3.7166230630050297`*^9, 
   3.7166234235192423`*^9, 3.7166266714416924`*^9, {3.716626763026861*^9, 
   3.716626765364794*^9}, 3.7304023261449137`*^9, 3.730402371939438*^9},
 CellLabel->"Out[1]=",
 CellID->855227123,ExpressionUUID->"f0fa53a3-d5ab-48e5-a0e4-2cd4954d6af6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToStandardSetting", "[", "\"\<F 2/d 2/d 2/d\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.712475196301139*^9, 3.712475199484971*^9}},
 CellLabel->"In[2]:=",
 CellID->1235542080,ExpressionUUID->"aead4235-9fc9-4a32-a05c-aec27910d824"],

Cell[BoxData["\<\"Fddd\"\>"], "Output",
 CellChangeTimes->{3.712475199724749*^9, 3.712475389597055*^9, 
  3.71248188325913*^9, 3.712481965440104*^9, 3.7143715708748903`*^9, 
  3.7166230631350527`*^9, 3.716623423669323*^9, 3.716626671651957*^9, 
  3.7166267655148783`*^9, 3.730402326333345*^9, 3.730402372092142*^9},
 CellLabel->"Out[2]=",
 CellID->694206890,ExpressionUUID->"5533d40a-5c33-43ed-96b5-6d7652b0f6a1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToStandardSetting", "[", "\"\<C 2/m 1 1\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.712475232963348*^9, 3.7124752432155046`*^9}},
 CellLabel->"In[3]:=",
 CellID->775256536,ExpressionUUID->"e23b728a-a74b-4476-9646-e29b126c579d"],

Cell[BoxData["\<\"C 2/m 1 1\"\>"], "Output",
 CellChangeTimes->{{3.712475235846603*^9, 3.712475243428761*^9}, 
   3.7124753897291613`*^9, 3.712481883397901*^9, 3.712481965576784*^9, 
   3.716623063283793*^9, 3.7166234238062696`*^9, 3.716626671815671*^9, 
   3.7166267656766376`*^9, 3.7304023265345383`*^9, 3.730402372254322*^9},
 CellLabel->"Out[3]=",
 CellID->256546079,ExpressionUUID->"ca80086b-e41d-4958-8a49-4896c371c64e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToStandardSetting", "[", "\"\<C 1 2/m 1\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.7124752494236927`*^9, 3.712475252160152*^9}},
 CellLabel->"In[4]:=",
 CellID->2123803201,ExpressionUUID->"399c0bda-36ef-4669-9084-a194d922acbf"],

Cell[BoxData["\<\"C 1 2/m 1\"\>"], "Output",
 CellChangeTimes->{3.712475252428903*^9, 3.712475389879148*^9, 
  3.712481883531454*^9, 3.712481965715075*^9, 3.716623063434537*^9, 
  3.716623423953589*^9, 3.7166266720088673`*^9, 3.716626765809577*^9, 
  3.7304023267025833`*^9, 3.730402372391007*^9},
 CellLabel->"Out[4]=",
 CellID->1770270224,ExpressionUUID->"074b2350-ecc0-48bb-ab6c-01e2ad5d3e58"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToStandardSetting", "[", 
  RowBox[{"\"\<F d -3 m\>\"", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.712479369573419*^9, 3.7124793757784863`*^9}, {
   3.712480143016708*^9, 3.712480148469716*^9}, 3.7124802486335087`*^9, {
   3.712480372592869*^9, 3.712480377238838*^9}, {3.7124810718563337`*^9, 
   3.712481089967291*^9}, {3.712481485821183*^9, 3.712481514604965*^9}, {
   3.716623406377486*^9, 3.7166234082545033`*^9}},
 CellLabel->"In[5]:=",
 CellID->1512354758,ExpressionUUID->"6da4911d-75e9-46a8-9caf-2cc7ea68cd63"],

Cell[BoxData["\<\"Fd\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)m:2\"\>"], \
"Output",
 CellChangeTimes->{
  3.712481883671249*^9, 3.7124819658427153`*^9, 3.716623063584153*^9, {
   3.71662340669092*^9, 3.716623424089075*^9}, 3.716626672170138*^9, 
   3.716626765946952*^9, 3.73040232688663*^9, 3.730402372543043*^9},
 CellLabel->"Out[5]=",
 CellID->1693209230,ExpressionUUID->"f74e4e3e-6021-4ad9-b3fd-8ad27c32b560"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToStandardSetting", "[", 
  RowBox[{"\"\<R -3 c\>\"", ",", "\"\<r\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.716623070068416*^9, 3.716623076859157*^9}, 
   3.716623400079732*^9, {3.716626682743206*^9, 3.716626685624442*^9}},
 CellLabel->"In[6]:=",
 CellID->726048018,ExpressionUUID->"63adc9fc-5c2a-4e5f-89c4-89a9202e43d1"],

Cell[BoxData["\<\"R\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)c:r\"\>"], \
"Output",
 CellChangeTimes->{{3.7166230718161163`*^9, 3.716623077207794*^9}, {
   3.716623380211123*^9, 3.716623424222171*^9}, {3.716626672320662*^9, 
   3.716626686037778*^9}, 3.716626766097227*^9, 3.730402327069119*^9, 
   3.730402372693042*^9},
 CellLabel->"Out[6]=",
 CellID->1461722213,ExpressionUUID->"6ed4516e-82a2-44e8-a671-5282374f6176"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"cdd6b6a0-c53b-411b-8db2-62485fd03354"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "9286ba6b-77f6-4131-9c38-9f06d00d461d"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"d942fd55-5cac-475c-ac40-3302c615e34a"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "43dd39b9-67f7-4c67-b15d-90744db42d3d"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"0f822d87-9748-4d00-a74e-55ae7ea6e2ef"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "8c212c46-ffb6-48c1-80f8-305b2300d575"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"80993452-1d72-402d-be38-b747e18c08d9"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "e499e887-82f9-4721-9dcd-d3b7570ada10"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783,ExpressionUUID->"13b52b2a-4e64-495f-aeac-95886ad0d3f8"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "665a5cd4-016c-4695-8808-72ee8cea780a"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749,ExpressionUUID->"a43ff8b4-f51a-4360-bd1d-68500b8dcef8"]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "1f3f4da6-770b-4122-84ec-9349bdb068d3"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"594af0ea-1fc4-4ad0-a3fb-fde43b14514c"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "6bbbda7e-5bdd-4ea1-96d2-b0e9e8d99252"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"6e9cbe94-15c1-433c-b031-0bbe29be25f4"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "d9c2edfc-9d03-4647-924d-754308eaa31e"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"0ee5d45c-4e0c-4242-be3d-65a78c120a24"],

Cell["\<\
Any extension is checked to see if the resulting space group symbol is valid.\
\
\>", "ExampleText",
 CellChangeTimes->{{3.7124819957035227`*^9, 3.712482020805689*^9}},
 CellID->2129982374,ExpressionUUID->"eea618d0-de7a-47e6-8457-6bbcf8883e09"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToStandardSetting", "[", 
  RowBox[{"\"\<F d -3 m\>\"", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.712481973850363*^9, 3.7124819771494417`*^9}},
 CellLabel->"In[1]:=",
 CellID->2061929372,ExpressionUUID->"0dd119a9-b7a7-4778-9df1-08c7811649ce"],

Cell[BoxData[
 TemplateBox[{
  "ToStandardSetting","ext",
   "\"Invalid extension \[LeftGuillemet]\\!\\(\\*RowBox[{\\\"3\\\"}]\\)\
\[RightGuillemet] for this space group.\"",2,1,47,26404666791296097012,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.712481977542213*^9, 3.7124820262131147`*^9, 
  3.730402385979938*^9},
 CellLabel->"During evaluation of In[1]:=",
 CellID->855932985,ExpressionUUID->"bcf7820d-274e-478b-8f37-6a7c6ca2ec69"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.712481974225142*^9, 3.712481977551611*^9}, 
   3.712482026247485*^9, 3.730402385999977*^9},
 CellLabel->"Out[1]=",
 CellID->1820211289,ExpressionUUID->"a1fd449e-6e5c-42a1-8024-58746a0bd51d"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "1d90bf58-aa8d-4f2c-87d6-ab1e1cc9fa55"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"b78143c5-5875-4c93-a864-f1f73d14e22c"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "83151faa-b156-4c55-958c-7decbd448b6d"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"bf3e8e83-02ac-4a4b-b306-1b84d8563874"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"ab6f1afe-ead3-4cf8-8460-227359b69219"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.6844936544301643`*^9, 3.684493657553843*^9}},
 CellID->586426787,ExpressionUUID->"8bcf2a75-d46b-4e3d-bfe6-43d58a883d85"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ToStandardSetting", "::", "ext"}], "=", 
    "\"\<Invalid extension \[LeftGuillemet]`1`\[RightGuillemet] for this \
space group.\>\""}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "ToStandardSetting"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"_", ",", "_."}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]}], "Input",
 InitializationCell->False,
 CellChangeTimes->{
  3.667811591227736*^9, 3.66810571214802*^9, {3.6681867516522207`*^9, 
   3.668186778354513*^9}, {3.6681868394172163`*^9, 3.6681868614325943`*^9}, {
   3.668187374101748*^9, 3.6681874104278383`*^9}, {3.668187695125526*^9, 
   3.668187730468417*^9}, {3.668188056044814*^9, 3.668188056876872*^9}, {
   3.6681926250344687`*^9, 3.668192625250432*^9}, {3.682755004772629*^9, 
   3.682755006380539*^9}, {3.6827550880482693`*^9, 3.6827550883851967`*^9}, {
   3.682757166386887*^9, 3.682757187609177*^9}, {3.682760997892744*^9, 
   3.6827610174084167`*^9}, {3.682763962473707*^9, 3.682763962814755*^9}, {
   3.684140977908526*^9, 3.6841409783589582`*^9}, {3.684148290703258*^9, 
   3.684148309867588*^9}, {3.684148479444276*^9, 3.684148481151258*^9}, {
   3.685686180336005*^9, 3.6856861809425592`*^9}, {3.7124803378635798`*^9, 
   3.712480360617807*^9}, {3.725962849323039*^9, 3.725962853881053*^9}, {
   3.756718225776058*^9, 3.7567182298258867`*^9}, {3.756718306310713*^9, 
   3.756718306471794*^9}},
 CellLabel->"In[914]:=",
 CellID->587297481,ExpressionUUID->"ef25aa05-ce20-4897-8c15-4ab95f70160e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ToStandardSetting", "[", 
   RowBox[{"group_String", ",", "hkl_List"}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "operators", ",", "equivalents", ",", "nonnegative", ",", "list"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{"Input", " ", "check"}], " ", "*)"}], "\[IndentingNewLine]", 
    "\t", 
    RowBox[{
     RowBox[{"InputCheck", "[", 
      RowBox[{"hkl", ",", "\"\<1hkl\>\"", ",", "\"\<Integer\>\""}], "]"}], 
     ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"InputCheck", "[", 
      RowBox[{"\"\<PointSpaceGroupQ\>\"", ",", "group"}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"Listing", " ", "all", " ", "symmetry"}], "-", "equivalents"}],
       " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"operators", "=", 
      RowBox[{"GetSymmetryOperations", "@", 
       RowBox[{"GetLaueClass", "@", "group"}]}]}], ";", "\[IndentingNewLine]",
      "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Depth", "@", "operators"}], "\[Equal]", "5"}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"operators", "=", 
        RowBox[{"operators", "\[LeftDoubleBracket]", 
         RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}]}]}], "]"}], ";",
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"equivalents", "=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Transpose", "[", "#", "]"}], ".", "hkl"}], "&"}], "/@", 
       "operators"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "Selection", " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"nonnegative", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"equivalents", ",", 
        RowBox[{
         RowBox[{"AllTrue", "[", 
          RowBox[{"#", ",", "NonNegative"}], "]"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"nonnegative", "\[NotEqual]", 
        RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"list", "=", "nonnegative"}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"list", "=", "equivalents"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Last", "@", 
      RowBox[{"SortBy", "[", 
       RowBox[{"list", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
           "#", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "&"}],
           ",", 
          RowBox[{
           RowBox[{
           "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "&"}],
           ",", 
          RowBox[{
           RowBox[{
           "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
           "&"}]}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{
  3.6678115931321983`*^9, 3.668106433667647*^9, {3.6827597597787027`*^9, 
   3.682759834796783*^9}, {3.682759891973723*^9, 3.6827599381135283`*^9}, {
   3.6827599744510717`*^9, 3.682760059158255*^9}, 3.682760089218005*^9, 
   3.682760175235159*^9, {3.682760273255459*^9, 3.682760273401188*^9}, {
   3.682760309150391*^9, 3.682760330431353*^9}, {3.682760623312214*^9, 
   3.682760634074464*^9}, {3.6827607536729813`*^9, 3.682760780680396*^9}, 
   3.6827639524031057`*^9, {3.682766856819317*^9, 3.6827668581203957`*^9}, {
   3.682767574024981*^9, 3.6827676450236273`*^9}, {3.683604297716032*^9, 
   3.683604323859149*^9}, {3.6841396193294077`*^9, 3.684139624630027*^9}, {
   3.684213538234778*^9, 3.684213555949724*^9}, 3.684235429735504*^9, {
   3.684493396540483*^9, 3.684493397210763*^9}, {3.684669115218993*^9, 
   3.6846691192528687`*^9}, {3.684669432088505*^9, 3.684669457777866*^9}, {
   3.684669489122911*^9, 3.684669518670082*^9}, {3.684669609081485*^9, 
   3.6846696230904016`*^9}, {3.685082164662752*^9, 3.685082172057521*^9}, 
   3.6850840466699457`*^9, {3.685247146490287*^9, 3.685247154770102*^9}, {
   3.685247286241943*^9, 3.685247305372675*^9}, {3.685247348944471*^9, 
   3.685247396744459*^9}, {3.6852474395342817`*^9, 3.68524751248363*^9}, {
   3.685247568575778*^9, 3.685247596178206*^9}, {3.6852491993387747`*^9, 
   3.685249199534231*^9}, {3.685697524120323*^9, 3.685697526389267*^9}, {
   3.685697566427183*^9, 3.685697604683166*^9}, 3.685700685716364*^9, 
   3.685700721712253*^9, {3.714370012740911*^9, 3.714370023123824*^9}, {
   3.7177409200144033`*^9, 3.717740920023315*^9}, {3.725954106003827*^9, 
   3.72595410715429*^9}, 3.7259582915662403`*^9, {3.725958525342989*^9, 
   3.725958533777025*^9}, 3.725958679383768*^9, {3.727675215252287*^9, 
   3.727675231692677*^9}, {3.727680799461162*^9, 3.727680801984366*^9}, 
   3.7379685211198072`*^9, 3.737968576457651*^9, {3.7585304488073587`*^9, 
   3.7585304608850737`*^9}, 3.76279309415876*^9, {3.786968712322731*^9, 
   3.786968713233395*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[917]:=",
 CellID->873921555,ExpressionUUID->"8f1eff2a-6539-4e3f-8b8c-b98995dfee74"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ToStandardSetting", "[", 
   RowBox[{"input_String", ",", 
    RowBox[{"extension_:", "1"}]}], "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
     "sg", ",", "fullHM", ",", "SG", ",", "\[IndentingNewLine]", 
      "mainTargetQ", ",", "uniqueInSgQ", ",", "mainSetting", ",", 
      "\[IndentingNewLine]", "output", ",", "temp"}], "}"}], ",", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", "Prepartaion", " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"output", "=", "input"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Check", " ", "if", " ", "valid", " ", "input", " ", "symbol"}],
       " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"InputCheck", "[", 
      RowBox[{"\"\<PointSpaceGroupQ\>\"", ",", "input"}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"sg", "=", 
      RowBox[{"$GroupSymbolRedirect", "[", "input", "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"fullHM", "=", 
      RowBox[{"sg", "[", 
       RowBox[{"\"\<Name\>\"", ",", "\"\<HermannMauguinFull\>\""}], "]"}]}], 
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"temp", "=", 
      RowBox[{"Position", "[", 
       RowBox[{"$SpaceGroups", ",", "fullHM"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"SG", "=", 
      RowBox[{"$SpaceGroups", "[", 
       RowBox[{"temp", "\[LeftDoubleBracket]", 
        RowBox[{"1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], "]"}]}],
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Is", " ", "target", " ", "space", " ", "group", " ", "main", " ", 
       RowBox[{"setting", "?"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"mainTargetQ", "=", 
      RowBox[{
       RowBox[{"Length", "@", 
        RowBox[{"First", "@", "temp"}]}], "\[LessEqual]", "3"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Is", " ", "target", " ", "symbol", " ", "unique", " ", "among", " ", 
       "all", " ", "space", " ", 
       RowBox[{"groups", "?"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"temp", "=", 
      RowBox[{"Position", "[", 
       RowBox[{"$SpaceGroups", ",", 
        RowBox[{"sg", "[", 
         RowBox[{"\"\<Name\>\"", ",", "\"\<Symbol\>\""}], "]"}]}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{
         RowBox[{"Length", "@", 
          RowBox[{"DeleteDuplicates", "@", 
           RowBox[{"temp", "\[LeftDoubleBracket]", 
            RowBox[{"All", ",", "1", ",", "1"}], 
            "\[RightDoubleBracket]"}]}]}], "===", "1"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Return", "@", "fullHM"}]}], "]"}], ";", "\[IndentingNewLine]",
      "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Is", " ", "target", " ", "symbol", " ", "unique", " ", "in", " ", 
       "its", " ", "space", " ", 
       RowBox[{"group", "?"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"uniqueInSgQ", "=", 
      RowBox[{
       RowBox[{"Length", "@", "temp"}], "===", "1"}]}], ";", "\t", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"Which", "[", "\[IndentingNewLine]", "\t", 
      RowBox[{"(*", " ", 
       RowBox[{"With", " ", "cell", " ", "origin", " ", 
        RowBox[{"tag", "?"}]}], " ", "*)"}], "\[IndentingNewLine]", "\t", 
      RowBox[{
       RowBox[{"extension", "=!=", "1"}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"output", "=", 
         RowBox[{
          RowBox[{"sg", "[", 
           RowBox[{"\"\<Name\>\"", ",", "\"\<Symbol\>\""}], "]"}], "<>", 
          "\"\<:\>\"", "<>", 
          RowBox[{"ToString", "@", "extension"}]}]}], ";", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"!", 
           RowBox[{"KeyExistsQ", "[", 
            RowBox[{"$GroupSymbolRedirect", ",", "output"}], "]"}]}], ",", 
          "\[IndentingNewLine]", "\t", 
          RowBox[{
           RowBox[{"Message", "[", 
            RowBox[{
             RowBox[{"ToStandardSetting", "::", "ext"}], ",", "extension"}], 
            "]"}], ";", 
           RowBox[{"Abort", "[", "]"}]}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{
         "Is", " ", "target", " ", "\"\<best candidate\>\"", " ", "for", " ", 
          "non"}], "-", 
         RowBox[{"main", " ", 
          RowBox[{"symbol", "?"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
       "\t", 
       RowBox[{
        RowBox[{"!", "uniqueInSgQ"}], "&&", 
        RowBox[{"!", "mainTargetQ"}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"mainSetting", "=", 
         RowBox[{"First", "@", 
          RowBox[{"SG", "[", "\"\<Setting\>\"", "]"}]}]}], ";", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"First", "@", 
            RowBox[{"sg", "[", "\"\<Setting\>\"", "]"}]}], "===", 
           "mainSetting"}], ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"output", "=", 
           RowBox[{"sg", "[", 
            RowBox[{"\"\<Name\>\"", ",", "\"\<Symbol\>\""}], "]"}]}], ",", 
          "\[IndentingNewLine]", "\t", 
          RowBox[{"output", "=", "fullHM"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
       RowBox[{"(*", " ", 
        RowBox[{"Uniquely", " ", "formatted", " ", "symbol", " ", "OR", " ", 
         RowBox[{"\"\<main symbol\>\"", "?"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"uniqueInSgQ", "||", "mainTargetQ"}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"output", "=", 
        RowBox[{
         RowBox[{"$GroupSymbolRedirect", "[", "output", "]"}], "[", 
         RowBox[{"\"\<Name\>\"", ",", "\"\<Symbol\>\""}], "]"}]}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"If", " ", "ambiguous"}], ",", " ", 
         RowBox[{"use", " ", "full", " ", 
          RowBox[{"Hermman", "--"}], "Mauguin"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", "\t", "True", ",", "\[IndentingNewLine]", "\t", 
       
       RowBox[{"output", "=", "fullHM"}]}], "\[IndentingNewLine]", "\t", 
      "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Return", "@", "output"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{
  3.6678115931321983`*^9, 3.668106433667647*^9, {3.6827597597787027`*^9, 
   3.682759834796783*^9}, {3.682759891973723*^9, 3.6827599381135283`*^9}, {
   3.6827599744510717`*^9, 3.682760059158255*^9}, 3.682760089218005*^9, 
   3.682760175235159*^9, {3.682760273255459*^9, 3.682760273401188*^9}, {
   3.682760309150391*^9, 3.682760330431353*^9}, {3.682760623312214*^9, 
   3.682760634074464*^9}, {3.6827607536729813`*^9, 3.682760780680396*^9}, 
   3.6827639524031057`*^9, {3.682766856819317*^9, 3.6827668581203957`*^9}, {
   3.682767574024981*^9, 3.6827676450236273`*^9}, {3.683604297716032*^9, 
   3.683604323859149*^9}, {3.6841396193294077`*^9, 3.684139624630027*^9}, {
   3.684213538234778*^9, 3.684213555949724*^9}, 3.684235429735504*^9, {
   3.684493396540483*^9, 3.684493397210763*^9}, {3.684669115218993*^9, 
   3.6846691192528687`*^9}, {3.684669432088505*^9, 3.684669457777866*^9}, {
   3.684669489122911*^9, 3.684669518670082*^9}, {3.684669609081485*^9, 
   3.6846696230904016`*^9}, {3.685082164662752*^9, 3.685082172057521*^9}, 
   3.6850840466699457`*^9, {3.685247146490287*^9, 3.685247154770102*^9}, {
   3.685247286241943*^9, 3.685247305372675*^9}, {3.685247348944471*^9, 
   3.685247396744459*^9}, {3.6852474395342817`*^9, 3.68524751248363*^9}, {
   3.685247568575778*^9, 3.685247596178206*^9}, {3.6852491993387747`*^9, 
   3.685249199534231*^9}, {3.685697524120323*^9, 3.685697526389267*^9}, {
   3.685697566427183*^9, 3.685697604683166*^9}, 3.685700685716364*^9, 
   3.685700721712253*^9, {3.712472174195052*^9, 3.712472177692658*^9}, {
   3.7124722215936527`*^9, 3.712472222125225*^9}, {3.7124726596033487`*^9, 
   3.712472831548615*^9}, 3.712472876359597*^9, {3.7124729225976963`*^9, 
   3.712472933328292*^9}, {3.712473065774521*^9, 3.712473085606015*^9}, {
   3.7124732297432747`*^9, 3.712473420166718*^9}, {3.7124737265129843`*^9, 
   3.712473738810995*^9}, {3.712473783794465*^9, 3.712473809180954*^9}, {
   3.7124738405360813`*^9, 3.7124739622882833`*^9}, {3.7124740164607363`*^9, 
   3.7124740355848503`*^9}, {3.712474526311514*^9, 3.71247454749196*^9}, {
   3.712474580437092*^9, 3.712474582276721*^9}, {3.7124748834875793`*^9, 
   3.712474934322382*^9}, {3.712474972745503*^9, 3.71247497289651*^9}, {
   3.7124750051489697`*^9, 3.712475018976412*^9}, {3.71248021179641*^9, 
   3.7124802412684507`*^9}, {3.712480291485821*^9, 3.712480313250639*^9}, 
   3.712480368500133*^9, {3.712480407676384*^9, 3.712480415123426*^9}, {
   3.712480531005803*^9, 3.7124806041575623`*^9}, {3.7124806490537233`*^9, 
   3.712480670116323*^9}, {3.712481025893857*^9, 3.712481064923984*^9}, {
   3.7143700581623793`*^9, 3.714370126083304*^9}, {3.714917865649086*^9, 
   3.7149179313574133`*^9}, {3.7149179630125713`*^9, 3.714917969850429*^9}, {
   3.714917999909767*^9, 3.714918043458394*^9}, {3.71491808323484*^9, 
   3.7149180863296623`*^9}, {3.7149181163613*^9, 3.714918121665152*^9}, 
   3.716618459915923*^9, {3.716618497717318*^9, 3.716618500665338*^9}, {
   3.716618556633456*^9, 3.7166185688222218`*^9}, 3.7166186120507097`*^9, {
   3.716623449771859*^9, 3.716623453353243*^9}, {3.716623558778885*^9, 
   3.716623579014586*^9}, {3.716623611307054*^9, 3.7166236149186153`*^9}, {
   3.716623666697957*^9, 3.716623666886039*^9}, {3.7166245086791477`*^9, 
   3.716624512246523*^9}, {3.716626230555719*^9, 3.7166262307671556`*^9}, {
   3.716626362872368*^9, 3.716626366478477*^9}, {3.716626401845291*^9, 
   3.716626410580432*^9}, {3.716626461873996*^9, 3.7166265694576187`*^9}, {
   3.7177409200415707`*^9, 3.717740920085593*^9}, {3.725954168642559*^9, 
   3.725954174585816*^9}, {3.7259544475654078`*^9, 3.725954453397047*^9}, {
   3.725954529596027*^9, 3.725954536170638*^9}, {3.725954897275111*^9, 
   3.7259549057293167`*^9}, {3.725955820678866*^9, 3.7259558389101562`*^9}, {
   3.725956228516712*^9, 3.7259562736346397`*^9}, {3.72595638572224*^9, 
   3.725956390152341*^9}, {3.725956444608553*^9, 3.7259565050163183`*^9}, {
   3.725956540351451*^9, 3.725956552420847*^9}, {3.7259566391886063`*^9, 
   3.725956744409425*^9}, {3.7259568065361633`*^9, 3.725956853631604*^9}, {
   3.725957068004551*^9, 3.7259571342078733`*^9}, {3.7259575859913692`*^9, 
   3.725957588447097*^9}, 3.725957938529029*^9, {3.725957985144517*^9, 
   3.725957988807857*^9}, {3.725958295593363*^9, 3.725958310575184*^9}, 
   3.725958500965064*^9, {3.7259585374199533`*^9, 3.725958540370281*^9}, 
   3.725958624258267*^9, {3.725958658665193*^9, 3.725958661783428*^9}, {
   3.725958708575451*^9, 3.7259587087667017`*^9}, {3.725960536390708*^9, 
   3.725960556380581*^9}, {3.725962451509495*^9, 3.725962508178426*^9}, {
   3.725962544908064*^9, 3.725962545122154*^9}, {3.725962621129652*^9, 
   3.725962629171185*^9}, {3.7259626800164413`*^9, 3.7259627547331057`*^9}, {
   3.725962864044545*^9, 3.725962864194646*^9}, {3.727675216158976*^9, 
   3.7276752323227167`*^9}, 3.727682066238936*^9, {3.728674616539852*^9, 
   3.728674623693241*^9}, {3.728674704063981*^9, 3.7286747063174458`*^9}, {
   3.7286747572315702`*^9, 3.728674771781168*^9}, {3.728674827973637*^9, 
   3.728674830483848*^9}, {3.728674895642453*^9, 3.7286749553686237`*^9}, {
   3.728675135911109*^9, 3.7286751520763397`*^9}, {3.7286752731619453`*^9, 
   3.728675273385056*^9}, {3.730544614406321*^9, 3.7305446146093597`*^9}, {
   3.7438654567386503`*^9, 3.7438654568231373`*^9}, {3.758530462743428*^9, 
   3.758530470145256*^9}, 3.7627930941740522`*^9, {3.78696872134781*^9, 
   3.7869687223053207`*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[918]:=",
 CellID->1358913052,ExpressionUUID->"8ae881df-e72c-46c0-8c6f-43d60cf3000c"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[23087, 628, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"cdd6b6a0-c53b-411b-8db2-62485fd03354",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 47348, 1153}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 600, 14, 24, "History",ExpressionUUID->"1f2ecf7b-2694-4435-9308-79264c2658ea",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1183, 38, 123, 1, 29, "CategorizationSection",ExpressionUUID->"d632d265-924c-4f31-9937-a5eaf168cb33",
 CellID->1122911449],
Cell[1309, 41, 134, 2, 30, "Categorization",ExpressionUUID->"811336fd-42ee-4048-8fa1-d8e62ba33908",
 CellID->686433507],
Cell[1446, 45, 177, 3, 30, "Categorization",ExpressionUUID->"b2d8fb73-3a98-493f-94c0-ba9f64f9d49b",
 CellID->605800465],
Cell[1626, 50, 172, 3, 30, "Categorization",ExpressionUUID->"a5804b2b-97dd-49eb-9ee0-c9474494ef8d",
 CellID->468444828],
Cell[1801, 55, 171, 2, 30, "Categorization",ExpressionUUID->"ae0368e4-8d83-4548-afe5-908e83c5d9c6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2009, 62, 110, 1, 29, "KeywordsSection",ExpressionUUID->"4e37af22-5d74-48ff-bbb5-cc8666b7d89a",
 CellID->477174294],
Cell[2122, 65, 100, 1, 70, "Keywords",ExpressionUUID->"7ed56084-fa92-4a2c-9266-9c0c54fff7b2",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2259, 71, 120, 1, 19, "TemplatesSection",ExpressionUUID->"88dffd42-e3f1-4cbe-9a14-72c9f71e4dcf",
 CellID->1872225408],
Cell[2382, 74, 149, 2, 70, "Template",ExpressionUUID->"24959277-1d66-47a6-8d83-eb205e03b652",
 CellID->1562036412],
Cell[2534, 78, 137, 2, 70, "Template",ExpressionUUID->"d337737c-9dec-45f6-bdac-b41f31b04d0e",
 CellID->158391909],
Cell[2674, 82, 136, 2, 70, "Template",ExpressionUUID->"6a49ba06-4596-41e4-bf87-bc82e06a3523",
 CellID->1360575930],
Cell[2813, 86, 137, 2, 70, "Template",ExpressionUUID->"0dd06f05-0b1b-4062-bd4b-ca34358cbd92",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[2987, 93, 108, 1, 19, "DetailsSection",ExpressionUUID->"eaf7f428-e882-47ba-a250-4385e56cb692",
 CellID->307771771],
Cell[3098, 96, 118, 2, 70, "Details",ExpressionUUID->"ec3379d7-0afc-4afa-b0fc-aa3c59d7781f",
 CellID->670882175],
Cell[3219, 100, 124, 2, 70, "Details",ExpressionUUID->"8fc5a89a-d420-4fe0-a142-1a71b0cd3fed",
 CellID->350963985],
Cell[3346, 104, 119, 2, 70, "Details",ExpressionUUID->"e3b22d88-3668-44e5-8efb-d977b04498bb",
 CellID->8391405],
Cell[3468, 108, 124, 2, 70, "Details",ExpressionUUID->"39c1f60e-5fa3-4a75-a8ba-ff27b85143e8",
 CellID->3610269],
Cell[3595, 112, 116, 2, 70, "Details",ExpressionUUID->"4e7d1ab9-7e91-416c-bb6a-b5505daf801a",
 CellID->401364205],
Cell[3714, 116, 116, 2, 70, "Details",ExpressionUUID->"c9c04c82-6c9b-404c-9b63-2359a7ed0a60",
 CellID->350204745],
Cell[3833, 120, 118, 2, 70, "Details",ExpressionUUID->"eee3d5f8-5043-4c48-b764-95f5eb25a617",
 CellID->732958810],
Cell[3954, 124, 133, 2, 70, "Details",ExpressionUUID->"f7b3f326-59bc-4175-b067-ee5a1e8d1ef6",
 CellID->222905350],
Cell[4090, 128, 122, 2, 70, "Details",ExpressionUUID->"aafca9ff-1be0-4a01-8067-6d5913433bd5",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4249, 135, 115, 1, 63, "ObjectName",ExpressionUUID->"93b507c7-3bad-41c0-ac41-1519170f90d5",
 CellID->1224892054],
Cell[4367, 138, 2652, 67, 169, "Usage",ExpressionUUID->"6153f6c6-4099-40c4-923a-c91595c357c3",
 CellID->982511436],
Cell[7022, 207, 1161, 25, 41, "Notes",ExpressionUUID->"326e418f-3a10-46ff-bf8f-b35d72930133",
 CellID->1067943069],
Cell[8186, 234, 678, 14, 57, "Notes",ExpressionUUID->"4066b546-9ac3-4c2b-bb2e-de5277711f33",
 CellID->188211582]
}, Open  ]],
Cell[CellGroupData[{
Cell[8901, 253, 112, 1, 44, "TutorialsSection",ExpressionUUID->"82ab4554-fcd6-4ec4-8473-603d390c2aae",
 CellID->250839057],
Cell[9016, 256, 100, 1, 16, "Tutorials",ExpressionUUID->"5f2a10eb-48b0-4dac-9e9b-495c9db1b1ff",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[9153, 262, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"31a34709-3a3b-49df-a21b-be5d59fb64ad",
 CellID->1268215905],
Cell[9294, 265, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"39db80e1-a4fa-4bd5-9e17-0151b9f89325",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[9444, 271, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"439d739a-2d35-4b75-b2b0-3dd676ed8fd5",
 CellID->1584193535],
Cell[9567, 274, 104, 1, 16, "RelatedLinks",ExpressionUUID->"8d0d245d-28a6-4454-b1dd-eef625be48e0",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[9708, 280, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"d5d05cbb-7630-4d1f-8f83-219da63e7025",
 CellID->1255426704],
Cell[9821, 283, 2860, 67, 74, "SeeAlso",ExpressionUUID->"634dbd2f-fb6e-421a-8c48-50c8fa310262",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[12718, 355, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"32bc4e39-d72d-4786-bf18-d7e0091538cd",
 CellID->38303248],
Cell[12833, 358, 101, 1, 16, "MoreAbout",ExpressionUUID->"575463f8-17b4-4587-b911-33fe2a0f0127",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[12971, 364, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"19a048dc-da24-486b-8c97-430e12b8056a",
 CellID->880084151],
Cell[13385, 377, 176, 2, 22, "ExampleText",ExpressionUUID->"5efba7c5-5404-46a3-81f6-6344c419fb84",
 CellID->878882352],
Cell[CellGroupData[{
Cell[13586, 383, 400, 9, 27, "Input",ExpressionUUID->"800badba-7c1f-478d-8b68-fc1fe11bebc0",
 CellID->338673504],
Cell[13989, 394, 464, 9, 25, "Output",ExpressionUUID->"4ec7c1a5-cc46-437d-a034-1b7520aeb787",
 CellID->1854444927]
}, Open  ]],
Cell[CellGroupData[{
Cell[14490, 408, 403, 9, 34, "Input",ExpressionUUID->"bad79386-471b-45f1-8133-12b9752028cd",
 CellID->1328982635],
Cell[14896, 419, 461, 8, 25, "Output",ExpressionUUID->"0bb5ad6b-3125-4dc2-8881-8241a6ddce71",
 CellID->1225719178]
}, Open  ]],
Cell[CellGroupData[{
Cell[15394, 432, 372, 9, 27, "Input",ExpressionUUID->"20d14f09-c20e-4a95-977b-e0f0eba5614b",
 CellID->619714023],
Cell[15769, 443, 461, 8, 25, "Output",ExpressionUUID->"413aecfb-e52c-4136-8171-5511f1986fb2",
 CellID->1999082622]
}, Open  ]],
Cell[CellGroupData[{
Cell[16267, 456, 405, 9, 34, "Input",ExpressionUUID->"0c486138-c5d1-4962-adb4-7773e2cf4c7c",
 CellID->1861274010],
Cell[16675, 467, 441, 8, 25, "Output",ExpressionUUID->"26961ed5-142e-4c12-8e3b-cb7f0c31a6fe",
 CellID->1199970639]
}, Open  ]],
Cell[CellGroupData[{
Cell[17153, 480, 381, 8, 34, "Input",ExpressionUUID->"d6a43071-0682-482f-b804-8a205693a149",
 CellID->867071188],
Cell[17537, 490, 314, 6, 25, "Output",ExpressionUUID->"cbda9ace-3ec0-47ac-8ed0-fa6be9bb8a57",
 CellID->887600696]
}, Open  ]],
Cell[CellGroupData[{
Cell[17888, 501, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"3d08f351-1b35-4e3a-9770-cb8ba0e6300a",
 CellID->1764651465],
Cell[18134, 508, 177, 2, 22, "ExampleText",ExpressionUUID->"bc2c26c3-8655-44f9-91c1-78b94a7feb24",
 CellID->1748007185],
Cell[CellGroupData[{
Cell[18336, 514, 252, 4, 27, "Input",ExpressionUUID->"60b16fe7-5d02-4c1e-b590-35f990d15214",
 CellID->385855261],
Cell[18591, 520, 505, 7, 25, "Output",ExpressionUUID->"f0fa53a3-d5ab-48e5-a0e4-2cd4954d6af6",
 CellID->855227123]
}, Open  ]],
Cell[CellGroupData[{
Cell[19133, 532, 255, 4, 27, "Input",ExpressionUUID->"aead4235-9fc9-4a32-a05c-aec27910d824",
 CellID->1235542080],
Cell[19391, 538, 413, 6, 25, "Output",ExpressionUUID->"5533d40a-5c33-43ed-96b5-6d7652b0f6a1",
 CellID->694206890]
}, Open  ]],
Cell[CellGroupData[{
Cell[19841, 549, 252, 4, 27, "Input",ExpressionUUID->"e23b728a-a74b-4476-9646-e29b126c579d",
 CellID->775256536],
Cell[20096, 555, 426, 6, 25, "Output",ExpressionUUID->"ca80086b-e41d-4958-8a49-4896c371c64e",
 CellID->256546079]
}, Open  ]],
Cell[CellGroupData[{
Cell[20559, 566, 253, 4, 27, "Input",ExpressionUUID->"399c0bda-36ef-4669-9084-a194d922acbf",
 CellID->2123803201],
Cell[20815, 572, 396, 6, 25, "Output",ExpressionUUID->"074b2350-ecc0-48bb-ab6c-01e2ad5d3e58",
 CellID->1770270224]
}, Open  ]],
Cell[CellGroupData[{
Cell[21248, 583, 549, 9, 27, "Input",ExpressionUUID->"6da4911d-75e9-46a8-9caf-2cc7ea68cd63",
 CellID->1512354758],
Cell[21800, 594, 415, 7, 26, "Output",ExpressionUUID->"f74e4e3e-6021-4ad9-b3fd-8ad27c32b560",
 CellID->1693209230]
}, Open  ]],
Cell[CellGroupData[{
Cell[22252, 606, 350, 6, 27, "Input",ExpressionUUID->"63adc9fc-5c2a-4e5f-89c4-89a9202e43d1",
 CellID->726048018],
Cell[22605, 614, 421, 7, 26, "Output",ExpressionUUID->"6ed4516e-82a2-44e8-a671-5282374f6176",
 CellID->1461722213]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23087, 628, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"cdd6b6a0-c53b-411b-8db2-62485fd03354",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[23245, 632, 242, 5, 33, "ExampleSection",ExpressionUUID->"d942fd55-5cac-475c-ac40-3302c615e34a",
 CellID->1293636265],
Cell[23490, 639, 265, 5, 21, "ExampleSection",ExpressionUUID->"0f822d87-9748-4d00-a74e-55ae7ea6e2ef",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[23780, 648, 244, 5, 21, "ExampleSection",ExpressionUUID->"80993452-1d72-402d-be38-b747e18c08d9",
 CellID->2061341341],
Cell[24027, 655, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"13b52b2a-4e64-495f-aeac-95886ad0d3f8",
 CellID->1757724783],
Cell[24277, 662, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"a43ff8b4-f51a-4360-bd1d-68500b8dcef8",
 CellID->1295379749]
}, Closed]],
Cell[24539, 670, 248, 5, 21, "ExampleSection",ExpressionUUID->"594af0ea-1fc4-4ad0-a3fb-fde43b14514c",
 CellID->258228157],
Cell[24790, 677, 259, 5, 21, "ExampleSection",ExpressionUUID->"6e9cbe94-15c1-433c-b031-0bbe29be25f4",
 CellID->2123667759],
Cell[CellGroupData[{
Cell[25074, 686, 252, 5, 21, "ExampleSection",ExpressionUUID->"0ee5d45c-4e0c-4242-be3d-65a78c120a24",
 CellID->1305812373],
Cell[25329, 693, 254, 5, 22, "ExampleText",ExpressionUUID->"eea618d0-de7a-47e6-8457-6bbcf8883e09",
 CellID->2129982374],
Cell[CellGroupData[{
Cell[25608, 702, 275, 5, 27, "Input",ExpressionUUID->"0dd119a9-b7a7-4778-9df1-08c7811649ce",
 CellID->2061929372],
Cell[25886, 709, 466, 10, 22, "Message",ExpressionUUID->"bcf7820d-274e-478b-8f37-6a7c6ca2ec69",
 CellID->855932985],
Cell[26355, 721, 248, 4, 25, "Output",ExpressionUUID->"a1fd449e-6e5c-42a1-8024-58746a0bd51d",
 CellID->1820211289]
}, Open  ]]
}, Open  ]],
Cell[26630, 729, 257, 5, 33, "ExampleSection",ExpressionUUID->"b78143c5-5875-4c93-a864-f1f73d14e22c",
 CellID->1653164318],
Cell[26890, 736, 249, 5, 21, "ExampleSection",ExpressionUUID->"bf3e8e83-02ac-4a4b-b306-1b84d8563874",
 CellID->589267740],
Cell[CellGroupData[{
Cell[27164, 745, 374, 8, 21, "ExampleSection",ExpressionUUID->"8bcf2a75-d46b-4e3d-bfe6-43d58a883d85",
 CellID->586426787],
Cell[27541, 755, 1689, 32, 121, "Input",ExpressionUUID->"ef25aa05-ce20-4897-8c15-4ab95f70160e",
 InitializationCell->False,
 CellID->587297481],
Cell[29233, 789, 5252, 109, 473, "Input",ExpressionUUID->"8f1eff2a-6539-4e3f-8b8c-b98995dfee74",
 InitializationCell->False,
 CellID->873921555],
Cell[34488, 900, 12434, 235, 1075, "Input",ExpressionUUID->"8ae881df-e72c-46c0-8c6f-43d60cf3000c",
 InitializationCell->False,
 CellID->1358913052]
}, Closed]]
}, Open  ]]
}
]
*)

